home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / minimon 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  452 lines
  1. 100 lety=#
  2. 1000 print"[147]          **********************
  3. 1001 [153]"          **                  **
  4. 1002 print"          **    minimon 64    **
  5. 1003 [153]"          **                  **
  6. 1004 print"          **       fuer       **
  7. 1005 [153]"          **   tinycompiler   **
  8. 1006 print"          **                  **
  9. 1007 [153]"          **  <c> nss 1985    **
  10. 1008 print"          **  nh 080286       **
  11. 1009 [153]"          **                  **
  12. 1010 print"          **  version $";
  13. 1011 poke53280,0
  14. 1012 gosub13020
  15. 1013 print"   **
  16. 1014 [153]"          **                  **
  17. 1015 poke53281,0
  18. 1017 print"          **********************
  19. 1060 [151]204,0
  20. 1070 [151]650,128
  21. 1080 [153]">";
  22. 1090 [136]f[178]0
  23. 1100 [158]42336
  24. 1110 [136]z[178]512
  25. 1120 [136]v[178][194](512)
  26. 1130 [139]v[178]0[167]1080
  27. 1140 [139]v[178]62[167]1160
  28. 1150 [137]1220
  29. 1160 [136]x[178]z[170]1
  30. 1170 [136]c[178][194](x)
  31. 1180 [151]z,c
  32. 1190 [139]c[178]0[167]1110
  33. 1200 [136]z[178]z[170]1
  34. 1210 [137]1160
  35. 1220 [139]v[178]77[167]3020
  36. 1230 [139]v[178]71[167]6020
  37. 1240 [139]v[178]88[167]4020
  38. 1242 [139]v[178]81[167]4020
  39. 1250 [139]v[178]76[167]5020
  40. 1260 [139]v[178]83[167]5020
  41. 1270 [139]v[178]70[167]7020
  42. 1280 [139]v[178]84[167]8020
  43. 1290 [139]v[178]72[167]9020
  44. 1300 [139]v[178]67[167]8020
  45. 2020 [136]j[178]0
  46. 2030 [136]k[178]j[170]j
  47. 2040 [136]k[178]k[170]j
  48. 2050 [136]t[178]k[170]4
  49. 2060 [141]10020
  50. 2070 [141]17000
  51. 2081 [136]j[178]j[170]1
  52. 2090 [139]j[179]8[167]2030
  53. 2100 [141]11020
  54. 2110 [139]c[178]28[167]2130
  55. 2120 [137]14020
  56. 2130 [136]s[178]1
  57. 2140 [136]a[178]1
  58. 2150 [136]g[178]0
  59. 2160 [136]t[178]4
  60. 2170 [141]12020
  61. 2180 [141]17000
  62. 2190 [136]d[178]g
  63. 2200 [136]j[178]0
  64. 2210 [136]k[178]j[170]j
  65. 2220 [136]k[178]k[170]j
  66. 2230 [136]a[178]6[170]k
  67. 2240 [136]s[178]3
  68. 2250 [136]g[178]0
  69. 2260 [136]t[178]a[170]1
  70. 2270 [141]12020
  71. 2280 [141]17000
  72. 2290 [136]e[178]d[170]j
  73. 2300 [151]e,g
  74. 2310 [136]j[178]j[170]1
  75. 2320 [139]j[179]8[167]2210
  76. 2330 [137]1080
  77. 3020 [136]t[178]1
  78. 3030 [141]10020
  79. 3040 [136]t[178]6
  80. 3050 [141]10020
  81. 3060 [141]17000
  82. 3070 [141]11020
  83. 3080 [139]c[178]11[167]3100
  84. 3090 [137]14020
  85. 3100 [136]s[178]1
  86. 3110 [136]a[178]3
  87. 3120 [136]g[178]0
  88. 3130 [136]t[178]12
  89. 3140 [141]12020
  90. 3150 [141]17000
  91. 3160 [136]h[178]g
  92. 3170 [136]s[178]1
  93. 3180 [136]a[178]8
  94. 3190 [136]g[178]0
  95. 3200 [141]12020
  96. 3210 [141]17000
  97. 3220 [136]y[178]h
  98. 3230 [153]">";
  99. 3240 [141]13020
  100. 3250 [153]" ";
  101. 3260 [136]i[178]0
  102. 3270 [136]d[178]h[170]i
  103. 3280 [136]y[178][194](d)
  104. 3290 [141]13120
  105. 3300 [153]" ";
  106. 3310 [136]i[178]i[170]1
  107. 3320 [139]i[179]8[167]3270
  108. 3330 [151]780,13
  109. 3340 [158]65490
  110. 3350 [136]t[178][194](197)
  111. 3360 [139]t[178]63[167]1080
  112. 3370 [136]h[178]h[170]8
  113. 3380 [139]h[177]g[167]1080
  114. 3390 [137]3220
  115. 4020 [151]650,0
  116. 4030 [151]204,1
  117. 4040 [128]
  118. 5020 [136]t[178]1
  119. 5030 [136]d[178][194](513)
  120. 5040 [139]d[178]34[167]5080
  121. 5050 [151]211,t
  122. 5060 [153]"on?
  123. 5070 goto1080
  124. 5080 letm=0
  125. 5090 letn=515+m
  126. 5100 lett=m+4
  127. 5110 ifm>15then5050
  128. 5120 letd=peek(n)
  129. 5130 ifd=34then5160
  130. 5140 letm=m+1
  131. 5150 goto5090
  132. 5160 lett=m+4
  133. 5170 gosub10020
  134. 5180 letw=17
  135. 5190 ifv=83then5220
  136. 5200 letw=7
  137. 5210 ifv=76then5260
  138. 5220 lett=t+3
  139. 5230 gosub10020
  140. 5240 lett=t+5
  141. 5250 gosub10020
  142. 5260 gosub17000
  143. 5270 gosub11020
  144. 5280 letn=m+w
  145. 5290 ifc=nthen5320
  146. 5300 lett=n
  147. 5310 goto5050
  148. 5320 lets=3
  149. 5330 leta=m+6
  150. 5340 letg=0
  151. 5350 lett=a+1
  152. 5360 gosub12020
  153. 5370 gosub17000
  154. 5380 leto=g
  155. 5390 letp=m+1
  156. 5400 ifv=76then5720
  157. 5410 lets=1
  158. 5420 leta=m+9
  159. 5430 letg=0
  160. 5440 lett=a+3
  161. 5450 gosub12020
  162. 5460 gosub17000
  163. 5470 gosub15020
  164. 5480 letr=h
  165. 5490 letq=l
  166. 5500 leta=m+14
  167. 5510 letg=0
  168. 5520 lett=a+3
  169. 5530 lets=1
  170. 5540 gosub12020
  171. 5550 gosub17000
  172. 5560 gosub15020
  173. 5570 leta=peek(45)
  174. 5580 letb=peek(46)
  175. 5590 gosub16020
  176. 5600 poke251,q
  177. 5610 poke252,r
  178. 5620 poke780,251
  179. 5630 poke781,l
  180. 5640 poke782,h
  181. 5650 sys65496
  182. 5680 poke45,a
  183. 5690 poke46,b
  184. 5700 .c
  185. 5710 goto1080
  186. 5720 print"[145][145]
  187. 5730 [141]16020
  188. 5740 [151]780,0
  189. 5750 [158]65493
  190. 5780 [137]5700
  191. 6020 [136]t[178]1
  192. 6030 [141]10020
  193. 6040 [141]17000
  194. 6050 [141]11020
  195. 6060 [139]c[178]6[167]6080
  196. 6070 [137]14020
  197. 6080 [136]s[178]1
  198. 6090 [136]a[178]3
  199. 6100 [136]g[178]0
  200. 6110 [136]t[178]12
  201. 6120 [141]12020
  202. 6130 [141]17000
  203. 6140 [158]g
  204. 6180 [137]1080
  205. 7020 [136]b[178]513
  206. 7030 [136]d[178][194](b)
  207. 7040 [139]d[178]32[167]7060
  208. 7050 [137]2020
  209. 7060 [136]t[178]6
  210. 7070 [141]10020
  211. 7080 [136]t[178]11
  212. 7090 [141]10020
  213. 7100 [141]17000
  214. 7110 [141]11020
  215. 7120 [139]c[178]14[167]7140
  216. 7130 [137]14020
  217. 7140 [136]s[178]1
  218. 7150 [136]a[178]3
  219. 7160 [136]g[178]0
  220. 7170 [136]t[178]15
  221. 7180 [141]12020
  222. 7190 [136]h[178]g
  223. 7200 [136]s[178]1
  224. 7210 [136]a[178]8
  225. 7220 [136]g[178]0
  226. 7230 [141]12020
  227. 7240 [136]i[178]g
  228. 7250 [136]s[178]3
  229. 7260 [136]a[178]13
  230. 7270 [136]g[178]0
  231. 7280 [141]12020
  232. 7290 [141]17000
  233. 7300 [151]h,g
  234. 7310 [136]h[178]h[170]1
  235. 7320 [139]h[177]i[167]1080
  236. 7330 [137]7300
  237. 8020 [136]t[178]1
  238. 8030 [141]10020
  239. 8040 [136]t[178]6
  240. 8050 [141]10020
  241. 8060 [136]t[178]11
  242. 8070 [141]10020
  243. 8080 [141]17000
  244. 8090 [141]11020
  245. 8100 [139]c[178]16[167]8120
  246. 8110 [141]14020
  247. 8120 [136]s[178]1
  248. 8130 [136]a[178]3
  249. 8140 [136]g[178]0
  250. 8150 [136]t[178]15
  251. 8160 [141]12020
  252. 8170 [136]h[178]g
  253. 8180 [136]s[178]1
  254. 8190 [136]a[178]8
  255. 8200 [136]g[178]0
  256. 8210 [141]12020
  257. 8220 [136]i[178]g
  258. 8230 [136]s[178]1
  259. 8240 [136]a[178]13
  260. 8250 [136]g[178]0
  261. 8260 [141]12020
  262. 8270 [141]17000
  263. 8280 [139]v[178]67[167]8370
  264. 8290 [136]j[178][194](h)
  265. 8300 [151]g,j
  266. 8310 [136]h[178]h[170]1
  267. 8320 [136]g[178]g[170]1
  268. 8330 [139]h[177]i[167]1080
  269. 8340 [137]8290
  270. 8370 [136]j[178][194](h)
  271. 8380 [136]k[178][194](g)
  272. 8390 [139]j[178]k[167]8410
  273. 8400 [137]8470
  274. 8410 [136]h[178]h[170]1
  275. 8420 [136]q[178][194](197)
  276. 8430 [139]q[178]63[167]9740
  277. 8440 [136]g[178]g[170]1
  278. 8450 [139]h[177]i[167]9740
  279. 8460 [137]8370
  280. 8470 [136]y[178]h
  281. 8480 [141]13020
  282. 8490 [153]" ";
  283. 8500 [137]8410
  284. 9020 [136]t[178]1
  285. 9030 [141]10020
  286. 9040 [136]t[178]6
  287. 9050 [141]10020
  288. 9060 [136]t[178]11
  289. 9070 [141]10020
  290. 9080 [141]17000
  291. 9090 [141]11020
  292. 9100 [139]c[178]14[167]9220
  293. 9110 [136]t[178]14
  294. 9120 [141]10020
  295. 9130 [141]17000
  296. 9140 [141]11020
  297. 9150 [139]c[178]17[167]9220
  298. 9160 [136]t[178]17
  299. 9170 [141]10020
  300. 9180 [141]17000
  301. 9190 [141]11020
  302. 9200 [139]c[178]20[167]9220
  303. 9210 [137]14020
  304. 9220 [136]s[178]1
  305. 9230 [136]a[178]3
  306. 9240 [136]g[178]0
  307. 9250 [136]t[178]c[171]1
  308. 9260 [141]12020
  309. 9270 [136]h[178]g
  310. 9280 [136]s[178]1
  311. 9290 [136]a[178]8
  312. 9300 [136]g[178]0
  313. 9310 [141]12020
  314. 9320 [136]i[178]g
  315. 9330 [136]s[178]3
  316. 9340 [136]a[178]13
  317. 9350 [136]g[178]0
  318. 9360 [141]12020
  319. 9370 [136]j[178]g
  320. 9380 [141]17000
  321. 9390 [139]t[178]13[167]9520
  322. 9400 [136]s[178]3
  323. 9410 [136]a[178]16
  324. 9420 [136]g[178]0
  325. 9430 [141]12020
  326. 9440 [136]k[178]g
  327. 9450 [139]f[178]1[167]1080
  328. 9460 [139]t[178]16[167]9520
  329. 9470 [136]s[178]3
  330. 9480 [136]a[178]19
  331. 9490 [136]g[178]0
  332. 9500 [141]12020
  333. 9510 [141]17000
  334. 9520 [136]l[178][194](h)
  335. 9530 [136]o[178]h[170]1
  336. 9540 [136]p[178]h[170]2
  337. 9550 [136]m[178][194](o)
  338. 9560 [136]n[178][194](p)
  339. 9570 [139]t[178]13[167]9630
  340. 9580 [139]t[178]16[167]9610
  341. 9590 [139]n[178]g[167]9610
  342. 9600 [137]9640
  343. 9610 [139]m[178]k[167]9630
  344. 9620 [137]9640
  345. 9630 [139]l[178]j[167]9700
  346. 9640 [136]h[178]h[170]1
  347. 9650 [136]q[178][194](197)
  348. 9660 [139]q[178]63[167]9740
  349. 9670 [139]h[177]i[167]9740
  350. 9680 [139]h[178]0[167]9740
  351. 9690 [137]9520
  352. 9700 [136]y[178]h
  353. 9710 [141]13020
  354. 9720 [153]" ";
  355. 9730 [137]9640
  356. 9740 .c
  357. 9750 [137]1080
  358. 10020 [136]b[178]512[170]t
  359. 10030 [136]d[178][194](b)
  360. 10040 [139]d[178]32[167]10080
  361. 10050 [151]211,t
  362. 10060 [153]"on?
  363. 10070 letf=1
  364. 10080 return
  365. 11020 letc=0
  366. 11030 letb=512+c
  367. 11031 letb=512+c
  368. 11040 letb=peek(b)
  369. 11050 ifb=0then11080
  370. 11060 letc=c+1
  371. 11070 goto11030
  372. 11080 return
  373. 12020 letb=511+a
  374. 12030 letc=peek(b)
  375. 12040 ifc<65then12080
  376. 12050 ifc>70then12080
  377. 12060 letc=c-55
  378. 12070 goto12110
  379. 12080 ifc<48then12290
  380. 12090 ifc>57then12290
  381. 12100 letc=c-48
  382. 12110 ifs=1then12150
  383. 12120 ifs=2then12180
  384. 12130 ifs=3then12210
  385. 12140 ifs=4then12230
  386. 12150 letu=4096
  387. 12160 gosub12310
  388. 12170 goto12230
  389. 12180 letu=256
  390. 12190 gosub12310
  391. 12200 goto12230
  392. 12210 letu=16
  393. 12220 gosub12310
  394. 12230 letg=g+c
  395. 12240 ifs=4then12280
  396. 12250 lets=s+1
  397. 12260 leta=a+1
  398. 12270 goto12020
  399. 12280 return
  400. 12290 gosub10050
  401. 12300 return
  402. 12310 letc=c*u
  403. 12320 return
  404. 13020 letu=4096
  405. 13030 gosub13290
  406. 13040 gosub13220
  407. 13050 gosub13310
  408. 13060 lety=y-b
  409. 13070 letu=256
  410. 13080 gosub13290
  411. 13090 gosub13220
  412. 13100 gosub13310
  413. 13110 lety=y-b
  414. 13120 letu=16
  415. 13130 gosub13290
  416. 13140 gosub13220
  417. 13150 gosub13310
  418. 13160 lety=y-b
  419. 13170 leta=y
  420. 13180 gosub13220
  421. 13190 letb=a
  422. 13200 lety=y-b
  423. 13210 return
  424. 13220 ifa>9then13270
  425. 13230 letc=a+48
  426. 13240 poke780,c
  427. 13250 sys65490
  428. 13260 return
  429. 13270 letc=a+55
  430. 13280 goto13240
  431. 13290 leta=y/u
  432. 13300 return
  433. 13310 letb=a*u
  434. 13320 return
  435. 14020 let t=c-1
  436. 14030 gosub10050
  437. 14040 goto1080
  438. 15020 leth=g/256
  439. 15030 leti=h*256
  440. 15040 letl=g-i
  441. 15050 return
  442. 16020 poke186,o
  443. 16030 poke185,1
  444. 16040 poke780,p
  445. 16050 poke781,2
  446. 16060 poke782,2
  447. 16070 sys65469
  448. 17000 iff=1then17020
  449. 17010 return
  450. 17020 .r
  451. 17030 goto1080
  452.